home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 1 / your choice.zip / your choice / OS2 / SOLPACK / DEUTSCH.CMD next >
OS/2 REXX Batch file  |  1994-03-13  |  3KB  |  125 lines
  1. /* DEUTSCH.CMD: Installation von CARDS.EXE in Deutsch. */
  2. /* Vielen Dank an die Entwickler von MEMSIZE für diese Installationsroutine !! */
  3. '@Echo Off'
  4.  
  5. /* REXXUTIL laden */
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10.  
  11. /* Initialisieren */
  12.  
  13. Signal On Failure Name FAILURE
  14. Signal On Halt Name HALT
  15. Signal On Syntax Name SYNTAX
  16.  
  17. Call SysCls
  18. Say 'Installation von CARDS 1.01...'
  19. Say ''
  20.  
  21.  
  22. /* Nachprüfen, ob bestimmte Bestandteile vorhanden sind. */
  23.  
  24. Language = 'DEUTSCH'
  25.  
  26. Result = SysFileTree( Language".EX_", 'Files', 'F' )
  27. If Files.0 = 0 Then
  28.   Do
  29.   Say 'FEHLER: 'Language'.EX_ nicht gefunden!'
  30.   Signal DONE
  31.   End
  32.  
  33. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  34. If Files.0 = 0 Then
  35.   Do
  36.   Say 'FEHLER: PICTURES.DLL nicht gefunden!'
  37.   Signal DONE
  38.   End
  39.  
  40. Result = SysFileTree( "README.TXT", 'Files', 'F' )
  41. If Files.0 = 0 Then
  42.   Do
  43.   Say 'FEHLER: README.TXT nicht gefunden!'
  44.   Signal DONE
  45.   End
  46.  
  47. Result = SysFileTree( Language".HL_", 'Files', 'F' )
  48. If Files.0 = 0 Then
  49.   Do
  50.   Say 'FEHLER: 'Language'.HL_ nicht gefunden!'
  51.   Signal DONE
  52.   End
  53.  
  54. Result = SysFileTree( Language".IN_", 'Files', 'F' )
  55. If Files.0 = 0 Then
  56.   Do
  57.   Say 'FEHLER: 'Language'.IN_ nicht gefunden!'
  58.   Signal DONE
  59.   End
  60.  
  61. /* Zielverzeichnis erfragen. */
  62.  
  63. Say 'Bitte geben Sie den vollen Verzeichnisnamen ein, wohin'
  64. Say '  CARDS installiert werden soll (Standard: C:\CARDS): '
  65. Pull Directory
  66. If Directory = "" Then Directory = 'C:\CARDS'
  67.  
  68.  
  69. /* Zielverzeichnis, falls nötig, anlegen. */
  70.  
  71. Result = SysFileTree( Directory, 'Dirs', 'D' )
  72. If Dirs.0 = 0 Then
  73.   Do
  74.   Result = SysMkDir( Directory )
  75.   if Result == 0 Then
  76.     Do
  77.     End
  78.   Else
  79.     Do
  80.     Say 'FEHLER: Kann das Zielverzeichnis nicht anlegen.'
  81.     Signal DONE
  82.     End
  83.   End
  84. Say '';
  85.  
  86.  
  87. Folder = '<WP_DESKTOP>'
  88.  
  89. /* Installation durchführen. */
  90.  
  91. Say 'Kopiere CARDS nach ' Directory '...'
  92. Copy Language".EX_" Directory"\CARDS.EXE" '1>NUL'
  93. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  94. Copy "README.TXT" Directory"\README.TXT" '1>NUL'
  95. Copy Language".HL_" Directory"\CARDS.HLP" '1>NUL'
  96. Copy Language".IN_" Directory"\CARDS.INF" '1>NUL'
  97.  
  98. Say 'Erzeuge Programmobjekt...'
  99. Type = 'WPProgram'
  100. Title = 'Kartenspiele'
  101. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  102. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  103.  
  104. If Result = 1 Then
  105.   Say 'Objekt erzeugt!  Fertig.'
  106. Else             
  107.   Say 'FEHLER: Nicht erzeugt!'
  108.  
  109. Signal DONE
  110.  
  111. FAILURE:
  112. Say 'Fehler in der REXX-Ausführung.'
  113. Signal DONE
  114.  
  115. HALT:
  116. Say 'REXX-Halt.'
  117. Signal DONE
  118.  
  119. SYNTAX:
  120. Say 'REXX-Syntaxfehler.'
  121. Signal DONE
  122.  
  123. DONE:
  124. Exit
  125.